From: Michael Albinus Date: Wed, 19 Jan 2022 08:07:49 +0000 (+0100) Subject: Respect structure of Tramp archive file names X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~3393 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=86dbe8682dce5c8b2c7b8c2bda936ed7af53923b;p=emacs.git Respect structure of Tramp archive file names * lisp/net/tramp.el (tramp-make-tramp-file-name): Respect structure of archive file names. --- diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 3c6f4974d7d..4c6a0bd9645 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1735,7 +1735,10 @@ the form (METHOD USER DOMAIN HOST PORT LOCALNAME &optional HOP)." (when hop (setq hop nil) ;; Assure that the hops are in `tramp-default-proxies-alist'. - (tramp-add-hops (car args)))) + ;; In tramp-archive.el, the slot `hop' is used for the archive + ;; file name. + (unless (string-equal method "archive") + (tramp-add-hops (car args))))) (t (setq method (nth 0 args) user (nth 1 args)